home *** CD-ROM | disk | FTP | other *** search
/ NBC Slam Jams! / NBC Slam Jams!.iso / xtras / media_la / effector.cst / 00020_Script_Seurat < prev    next >
Text File  |  1997-09-30  |  844b  |  35 lines
  1. -- Seurat
  2.  
  3.  
  4.  
  5.  
  6.  
  7. Property pSpeed,pRadius,pIntensity
  8.  
  9. on getPropertyDescriptionList
  10.   if not alphamaniacCheck(the currentSpriteNum) then exit
  11.   
  12.   set pList=[:]
  13.   addProp pList,#pSpeed,[format:#integer,¼
  14.                            comment:"Speed:",¼
  15.                            Default:7,range:[min:0,max:25]]
  16.   
  17.   addProp pList,#pRadius,[format:#integer,¼
  18.                               comment:"Radius:",¼
  19.                               Default:3,range:[min:1,max:3]]
  20.   
  21.   addProp pList,#pIntensity,[format:#integer,¼
  22.                               comment:"Intensity:",¼
  23.                               Default:4,range:[min:1,max:16]]
  24.   
  25.   return pList
  26. end
  27.  
  28. on beginSprite me
  29.   set s=the spriteNum of me
  30.   if not alphaManiac(s) then exit
  31.   
  32.   seurat(sprite s,[speed:pSpeed,radius:pRadius,intensity:pIntensity])
  33. end
  34.  
  35.